home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / distortfx / bevelglassshadefast < prev    next >
Text File  |  1999-06-15  |  1KB  |  56 lines
  1. Filter Factory Plugin Information:
  2.  
  3. FILENAME: SHADBEV.8BF
  4.  
  5. CATEGORY: 
  6. CPK Designs
  7.  
  8. TITLE:    
  9. Shadow Bevel
  10.  
  11. COPYRIGHT:
  12. Copyright ) 1996 CPK Designs, Inc.
  13. All Rights Reserved.
  14.  
  15. AUTHOR:   
  16. CPK
  17.  
  18. Map 0: [Map 0:]
  19. Map 1: [Map 1:]
  20. Map 2: [Map 2:]
  21. Map 3: [Map 3:]
  22.  
  23. Control 0: [Bevel]
  24. Control 1: [X-light (128-neutral)]
  25. Control 2: [Y-light (128-neutral)]
  26. Control 3: [Control 3:]
  27. Control 4: [Control 4:]
  28. Control 5: [Control 5:]
  29. Control 6: [Control 6:]
  30. Control 7: [Control 7:]
  31.  
  32. R=
  33. put(val(0,0,X/2),0), put(ctl(1)-128, 1), put(ctl(2)-128, 2),
  34. (x<val(0,0,X/2)&&x*Y<=X*y&&x*Y<=X*(Y-y) ? c+get(1) :
  35. (y<val(0,0,Y/2)&&x*Y>=X*y&&Y*(X-x)>=X*y ? c+get(2) :
  36. (x>val(0,X,X/2)&&(X-x)*Y<=X*y&&x*(Y-y)>=y*(X-x) ? c-get(1) :
  37. (y>val(0,Y,Y/2)&&x*Y>=X*(Y-y)&&x*(Y-y)<=y*(X-x) ? c-get(2) : c))))
  38.  
  39.  
  40.  
  41. G=
  42. (x<val(0,0,X/2)&&x*Y<=X*y&&x*Y<=X*(Y-y) ? c+get(1) :
  43. (y<val(0,0,Y/2)&&x*Y>=X*y&&Y*(X-x)>=X*y ? c+get(2) :
  44. (x>val(0,X,X/2)&&(X-x)*Y<=X*y&&x*(Y-y)>=y*(X-x) ? c-get(1) :
  45. (y>val(0,Y,Y/2)&&x*Y>=X*(Y-y)&&x*(Y-y)<=y*(X-x) ? c-get(2) : c))))
  46.  
  47. B=
  48. (x<val(0,0,X/2)&&x*Y<=X*y&&x*Y<=X*(Y-y) ? c+get(1) :
  49. (y<val(0,0,Y/2)&&x*Y>=X*y&&Y*(X-x)>=X*y ? c+get(2) :
  50. (x>val(0,X,X/2)&&(X-x)*Y<=X*y&&x*(Y-y)>=y*(X-x) ? c-get(1) :
  51. (y>val(0,Y,Y/2)&&x*Y>=X*(Y-y)&&x*(Y-y)<=y*(X-x) ? c-get(2) : c))))
  52.  
  53. A=
  54. a
  55.  
  56.